(mouse-set-font): Use set-frame-font.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2e4da9a2ba5dad69cfb7e26bc41dd480fd4240d1..a94b358919f4e902b985873bec8903c2570802d4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -5,6 +5,7 @@
 2008-10-03  Glenn Morris  <rgm@gnu.org>
 
        * frame.el (set-default-font): Make obsolete.
+       * mouse.el (mouse-set-font): Use set-frame-font.
 
        * jka-cmpr-hook.el (jka-compr-compression-info-list)
        (jka-compr-mode-alist-additions): Also match `.tbz2'.

diff --git a/lisp/mouse.el b/lisp/mouse.el
index e8adeb88101de3916c88a196bbfdcc8ad2c04cd0..0ad7aa51d98f8b61c117098eca8448e73d6c83f4 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -2461,7 +2461,7 @@ choose a font."
        (while fonts
          (condition-case nil
              (progn
-               (set-default-font (car fonts))
+               (set-frame-font (car fonts))
                (setq font (car fonts))
                (setq fonts nil))
            (error